Private Sub Form1_Load ()
    Dim x, y As Single
    x = Val(InputBox(" x ֵ", "ֵ", -3))
    If x >= 0 Then y = 1 + x Else y = 1 - 2 * x
    MsgBox "ֵΪ" + Str(y), vbOKOnly, "ֵ"
End Sub



